home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / castools.zip / FUNCBH.ASM < prev    next >
Assembly Source File  |  1990-01-05  |  1KB  |  42 lines
  1. Include multi.inc
  2. Include model.inc
  3.  
  4. ;==============================================================================
  5. ;
  6. ;   CAS function Bh -- Set Task Date
  7. ;
  8. ;   Format:
  9. ;               int CASSetTaskDate (int handle, CAS_DATE *date)
  10. ;   Input:
  11. ;               handle of event, pointer to date structure
  12. ;   Output:
  13. ;               Returns 0 if successful or negative error code.
  14. ;==============================================================================
  15.  
  16.                 .CODE
  17. CASSetTaskDate          PROC    arg1:WORD, arg2:PTR WORD
  18.  
  19.                 mov     ax,MUX          ; load multiplex number
  20.                 mov     ah,al           ; move into ah
  21.                 mov     al,0Bh          ; CAS function B
  22.                 mov     bx,arg1         ; event handle
  23.         IF      @DataSize               ; large and medium models
  24.                 les     di,arg2         ; pointer to date structure
  25.                 mov     cx,es:[di]      ; load year
  26.                 mov     dh,es:[di+2]    ; load month
  27.                 mov     dl,es:[di+3]    ; load day
  28.         ELSE
  29.                 mov     di,arg2         ; small model
  30.                 mov     cx,[di]         ; year
  31.                 mov     dh,[di+2]       ; month
  32.                 mov     dl,[di+3]       ; day
  33.         ENDIF
  34.                 int     2Fh
  35.  
  36.                 ret
  37. CASSetTaskDate          endp
  38.  
  39.                 END
  40.  
  41.  
  42.